(mail-yank-original): Delete windows on selected frame only.

diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el
index ddb671bf641ca40749279d50092d8dcf0c6f9c72..e90d46bb94979cd55b92ddde897d81c009b66905 100644 (file)
--- a/lisp/mail/sendmail.el
+++ b/lisp/mail/sendmail.el
@@ -670,7 +670,10 @@ and don't delete any header fields."
   (interactive "P")
   (if mail-reply-buffer
       (let ((start (point)))
-       (delete-windows-on mail-reply-buffer)
+       ;; If the original message is in another window in the same frame,
+       ;; delete that window to save screen space.
+       ;; t means don't alter other frames.
+       (delete-windows-on mail-reply-buffer t)
        (insert-buffer mail-reply-buffer)
        (if (consp arg)
            nil